(other-frame): Warp the mouse so that the other

frame actually stays selected.

diff --git a/lisp/frame.el b/lisp/frame.el
index f3cbdbb9284606574c7c1c2c17bef443d660e22f..e9d17fc1de31e8d812b29c9a41e98a2c38d0e647 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -371,7 +371,9 @@ A negative ARG moves in the opposite order."
        (setq frame (previous-frame frame)))
       (setq arg (1+ arg)))
     (raise-frame frame)
-    (select-frame frame)))
+    (select-frame frame)
+    (set-mouse-position (selected-frame) (frame-width) 0)
+    (unfocus-frame)))
 \f
 ;;;; Frame configurations